home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / cfuncs.zip / ADD_COMA.C next >
Text File  |  1991-12-17  |  858b  |  52 lines
  1.  
  2. char *add_comma(double x, int dec, int dolsign)
  3. {
  4.   char buffer[40] = "";
  5.   char dblstr[40] = "";
  6.   int i, l, cnt, index;
  7.  
  8.   sprintf(dblstr, "%10.*f", dec, x);
  9.  
  10.   ltrim(dblstr);
  11.  
  12.   l = strlen(dblstr);
  13.   strspc(buffer, 19);
  14.  
  15.   if (dolsign)
  16.   {
  17.     for (i=l-1 ,cnt=0; cnt<3; --i, ++cnt)
  18.       buffer[cnt] = dblstr[i];
  19.  
  20.     for (i=l-4,cnt=3, index=0; i>=0; --i, ++cnt)
  21.     {
  22.       buffer[cnt] = dblstr[i];
  23.       index++;
  24.       if (index == 3 && i>0)
  25.       {
  26.     buffer[++cnt] = ',';
  27.     index=0;
  28.       }
  29.     }
  30.   }
  31.   else
  32.     for (i=l-1,cnt=0, index=0; i>=0; --i, ++cnt)
  33.     {
  34.       buffer[cnt] = dblstr[i];
  35.       index++;
  36.       if (index == 3 && i>0)
  37.       {
  38.     buffer[++cnt] = ',';
  39.     index=0;
  40.       }
  41.     }
  42.   {
  43.   }
  44.   buffer[cnt] = '\0';
  45.  
  46.   if (dolsign)
  47.     strcat(buffer, "$");
  48.  
  49.   strrev(buffer);
  50.  
  51.   return(buffer);
  52. }